Option Explicit
Sub A_Sample041()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myRng3 As Range
    Dim myRng4 As Range
    Dim myRng5 As Range
    Set myRng1 = Range("A1:B5")	'Nxsd
    Set myRng2 = Range("C7:D9")
    Set myRng3 = Range("D15:G20")
    Set myRng4 = Union(myRng1, myRng2, myRng3)
    'ǳƨ즹
For Each myRng5 In myRng4.Areas
        MsgBox myRng5.Address
    Next
    Set myRng1 = Nothing		'
    Set myRng2 = Nothing
    Set myRng3 = Nothing
    Set myRng4 = Nothing
    Set myRng5 = Nothing
End Sub
